home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_90-04_1990_-_de_Side_A.d64 / [u] saven (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  741b  |  34 lines
  1. 1 rem  unterprogramm zum saven von
  2. 2 rem  beliebigen speicherbereichen.
  3. 3 rem  a1 = ab speicheradr.a1
  4. 4 rem  a2 = bis speicheradr. a2
  5. 5 rem  n$ = filename
  6. 6 :
  7. 7 a1=36864:a2=40959
  8. 8 n$="filename"
  9. 9 :
  10. 10 rem  berechnung des lo-und hi wertes
  11. 11 rem  von a1 und a2.                     :
  12. 12 y1=int(a1/256):x1=a1-(y1*256)
  13. 13 y2=int(a2/256):x2=a2-(y2*256)
  14. 14 :
  15. 15 rem  filename an kernalroutine. kein
  16. 16 rem  komma zwischen sys und name!
  17. 17 :
  18. 18 sys57812 n$,8
  19. 19 :
  20. 20 rem  lo-und hi werte an routine.        :
  21. 21 poke193,x1:poke194,y1:rem start
  22. 22 poke174,x2:poke175,y2:rem end
  23. 23 :
  24. 24 rem  saveroutine starten.
  25. 25 :
  26. 26 sys62954
  27. 27 :
  28. 28 :
  29. 29 :
  30. 30 rem  die daten von adresse a1-a2
  31. 31 rem  sind nun auf disk gesichert.
  32. 32 :
  33. 33 rem  nicht starten. demo!!!
  34.